home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
cards.zip
/
BASE.BAS
next >
Wrap
BASIC Source File
|
1986-09-28
|
404b
|
19 lines
10 SCREEN 2
20 SCREEN 0
30 OPEN "CARDS.DAT" FOR APPEND AS #1
40 LOCATE 1,1:PRINT"PLAYER"
45 LOCATE 1,24:PRINT"POS"
50 LOCATE 1,28:PRINT"YEAR"
60 LOCATE 1,35:PRINT"HR"
70 LOCATE 1,42:PRINT"RBI'S"
80 LOCATE 1,49:PRINT"TEAM"
85 LOCATE 1,67:PRINT"AVG."
90 LOCATE 1,72:PRINT"D"
100 LOCATE 1,76:PRINT"ERA"
110 FOR X=1 TO 9999
120 INPUT P$
130 WRITE #1,P$
140 NEXT X
150 CLOSE #1
160 END